home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 56 / 056.d81 / personal finance (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  13.4 KB  |  406 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)chr$(8)
  2. 20 print"[147][150]      [208]ersonal [198]inancial [211]tatement"
  3. 30 poke147,0:sys57812"viewdir.o",8,1:sys62631
  4. 40 poke147,0:sys57812"ss64.o",8,1:sys62631
  5. 50 fori=0to24:poke54272+i,0:next
  6. 200 dimm$(9),a$(15),l$(9),as$(15),li$(9):f$="":nm=9:na=14:nl=8
  7. 205 sp$="          "
  8. 210 fori=1tona:as$(i)="0":next
  9. 215 fori=1tonl:li$(i)="0":next
  10. 220 fori=1tonm:readm$(i):next
  11. 230 data " [204]oad "," [211]ave ","[208]rint "
  12. 235 data "[193]ssets","[204]iabil","[212]otals"
  13. 236 data " [196]ir  "," [201]nfo "," [197]xit "
  14. 237 gosub7500
  15. 475 print"[147][156][146]      [208]ersonal [198]inancial [211]tatement"
  16. 480 print"[155]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 485 fori=1to3:printtab(7)"[221][176][192][192][192][192][192][192][174][176][192][192][192][192][192][192][174][176][192][192][192][192][192][192][174][221]"
  18. 486 printtab(7)"[221][221]      [221][221]      [221][221]      [221][221]"
  19. 487 printtab(7)"[221][173][192][192][192][192][192][192][189][173][192][192][192][192][192][192][189][173][192][192][192][192][192][192][189][221]":next
  20. 490 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  21. 495 fori=217to242:pokei,peek(i)or128:next
  22. 500 print""
  23. 501 fori=1to9step3:printtab(9)""m$(i)""m$(i+1)""m$(i+2):print:print:next
  24. 505 poke214,16:print:print"[150]       [195]ursor keys to highlight. "
  25. 506 print"           [210][197][212][213][210][206] to select."
  26. 507 poke214,21:print:print"[153]     [c] 1988 by [194]arbara [200]. [211]chulak"
  27. 510 r=7:c=9:xx=1:v$=m$(xx):gosub9050
  28. 520 getk$:ifk$=""then520
  29. 525 ifk$=chr$(13)then550
  30. 527 x1=xx:r1=r:c1=c
  31. 530 ifk$=""thenr=r+3:ifr>13thenr=7
  32. 535 ifk$="[145]"thenr=r-3:ifr<7thenr=13
  33. 536 ifk$=""thenc=c+8:ifc>25thenc=9
  34. 537 ifk$="[157]"thenc=c-8:ifc<9thenc=25
  35. 538 xx=r-7+int(c/8):x2=xx:r2=r:c2=c
  36. 540 ifx1<>xxthenxx=x1:r=r1:c=c1:v$=m$(xx):gosub9000
  37. 545 xx=x2:r=r2:c=c2:v$=m$(xx):gosub9050:goto520
  38. 550 gosub8200:onxxgosub1000,2000,5000,3000,4000,6000,7000,9500,20000
  39. 552 ifxx=9orxx=3 then520
  40. 555 goto475
  41. 1000 print"[147][150]               [204]oad [198]ile"
  42. 1001 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  43. 1002 print"[155][221][154][198]ilename:                   [155][221]"
  44. 1003 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  45. 1004 print"[154]";
  46. 1005 ty=4:l=13:gosub9200:ifct=0thenreturn
  47. 1010 open2,8,2,v$+",s,r"
  48. 1015 open15,8,15
  49. 1020 input#15,e0,e$,e1,e2
  50. 1025 print
  51. 1026 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  52. 1027 print"[155][221][154][196]isk:                       [155][221]"
  53. 1028 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  54. 1029 print"[154]";e$
  55. 1030 ife0thenclose15:close2:gosub9400:return
  56. 1035 fori=1tonl:input#2,li$(i):next
  57. 1040 fori=1tona:input#2,as$(i):next
  58. 1045 close15:close2:return
  59. 1050 :
  60. 2000 print"[147][150]               [211]ave [198]ile"
  61. 2001 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  62. 2002 print"[155][221][154][198]ilename:                   [155][221]"
  63. 2003 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  64. 2004 print"[154]";
  65. 2005 ty=4:l=13:gosub9200:ifct=0thenreturn
  66. 2010 open2,8,2,v$+",s,w"
  67. 2015 open15,8,15
  68. 2020 input#15,e0,e$,e1,e2
  69. 2025 print
  70. 2026 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  71. 2027 print"[155][221][154][196]isk:                       [155][221]"
  72. 2028 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  73. 2029 print"[154]";e$
  74. 2030 ife0thenclose15:close2:gosub9400:return
  75. 2035 fori=1tonl:print#2,li$(i):next
  76. 2040 fori=1tona:print#2,as$(i):next
  77. 2045 close15:close2:return
  78. 2050 :
  79. 3000 print"[147][150]                 [193]ssets"
  80. 3005 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
  81. 3010 fori=1tona:print"[221]                           [221]         [221]":next
  82. 3015 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]"
  83. 3016 print"[221] [212]otals                    [221]         [221]"
  84. 3017 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]"
  85. 3020 fori=217to242:pokei,peek(i)or128:next
  86. 3021 r=4:c=1:x=1:v$=a$(x)
  87. 3025 print"[154]";
  88. 3030 fori=1tona:print""a$(i):next
  89. 3035 print"[153]";
  90. 3040 fori=1tona:printtab(29)""right$(sp$+as$(i),9):next
  91. 3045 gosub8000
  92. 3050 print:printtab(29)"[150]"right$(sp$+str$(ta),9)
  93. 3055 poke214,21:print:print"[153]  _=[205]ain [205]enu                  [200]=[200]elp  "
  94. 3060 v$=a$(x):gosub9000
  95. 3065 getk$:ifk$=""then3065
  96. 3069 ifk$=chr$(3)thengosub7700:goto3055
  97. 3070 ifk$="_"thenreturn
  98. 3071 ifk$="+"thenfl=1:goto3115
  99. 3072 ifk$="-"thenfl=2:goto3115
  100. 3073 ifk$="="thenfl=3:goto3115
  101. 3074 ifk$="h"thensys49152:print"";:gosub8500:goto3065
  102. 3075 x1=x
  103. 3080 ifk$=""thenx=x+1:ifx>nathenx=1
  104. 3090 ifk$="[145]"thenx=x-1:ifx<1thenx=na
  105. 3095 x2=x
  106. 3100 ifx1<>xthenx=x1:v$=a$(x):gosub9050
  107. 3105 x=x2:r=x+3:v$=a$(x):gosub9000:goto3065
  108. 3115 gosub8100
  109. 3119 v=val(v$):y=val(as$(x))
  110. 3120 iffl=3thenas$(x)=str$(v):goto3025
  111. 3121 iffl=1thenas$(x)=str$(v+y):goto3025
  112. 3125 as$(x)=str$(y-v):goto3025
  113. 3130 :
  114. 4000 print"[147][150]               [204]iabilities"
  115. 4005 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
  116. 4010 fori=1tonl:print"[221]                           [221]         [221]":next
  117. 4015 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]"
  118. 4016 print"[221] [212]otals                    [221]         [221]"
  119. 4017 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]"
  120. 4020 fori=217to242:pokei,peek(i)or128:next
  121. 4021 r=5:c=1:x=1:v$=l$(x)
  122. 4025 print"[154]";
  123. 4030 fori=1tonl:print""l$(i):next
  124. 4035 print"[153]";
  125. 4040 fori=1tonl:printtab(29)""right$(sp$+li$(i),9):next
  126. 4045 gosub8000
  127. 4050 print:printtab(29)"[150]"right$(sp$+str$(tl),9)
  128. 4055 poke214,21:print:print"[153]  _=[205]ain [205]enu                  [200]=[200]elp  "
  129. 4060 v$=l$(x):gosub9000
  130. 4065 getk$:ifk$=""then4065
  131. 4069 ifk$=chr$(3)thengosub7800:goto4055
  132. 4070 ifk$="_"thenreturn
  133. 4071 ifk$="+"thenfl=1:goto4110
  134. 4072 ifk$="-"thenfl=2:goto4110
  135. 4073 ifk$="="thenfl=3:goto4110
  136. 4074 ifk$="h"thensys49152:print"";:gosub8500:goto4065
  137. 4075 x1=x
  138. 4080 ifk$=""thenx=x+1:ifx>nlthenx=1
  139. 4090 ifk$="[145]"thenx=x-1:ifx<1thenx=nl
  140. 4095 x2=x
  141. 4100 ifx1<>xthenx=x1:v$=l$(x):gosub9050
  142. 4105 x=x2:r=x+4:v$=l$(x):gosub9000:goto4065
  143. 4110 gosub8100
  144. 4119 v=val(v$):y=val(li$(x))
  145. 4120 iffl=1thenli$(x)=str$(v+y):goto4025
  146. 4121 iffl=3thenli$(x)=str$(v):goto4025
  147. 4125 li$(x)=str$(y-v):goto4025
  148. 4130 :
  149. 5000 sys49152
  150. 5002 print"[155]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  151. 5004 printtab(7)"[221][154]   [208]rinter ready [y/n]  [155][221]"
  152. 5006 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  153. 5010 geta$:ifa$=""then5010
  154. 5020 ifa$="[217]"ora$="y"then5070
  155. 5030 sys49227:return
  156. 5070 poke214,16:print:printtab(9)"[154][208]rinting...          "
  157. 5075 gosub8000:gt=ta-tl
  158. 5080 open4,4,7
  159. 5090 print#4,"                          [208]ersonal [198]inancial [211]tatement"
  160. 5100 fori=1to79:print#4,"-";:next:print#4
  161. 5110 print#4," [193]ssets                                   [204]iabilities"
  162. 5120 fori=1to79:print#4,"-";:next:print#4
  163. 5130 fori=1to8:print#4,a$(i);:print#4,right$(sp$+as$(i),10);
  164. 5131 print#4,"    ";:print#4,l$(i);:print#4,right$(sp$+li$(i),10):next
  165. 5140 fori=9to14:print#4,a$(i);:print#4,right$(sp$+as$(i),10):next
  166. 5150 fori=1to79:print#4,"-";:next:print#4
  167. 5160 print#4," [212]otal [193]ssets              ";:print#4,right$(sp$+str$(ta),10);
  168. 5162 print#4,"     [212]otal [204]iabilities         ";
  169. 5164 print#4,right$(sp$+str$(tl),10)
  170. 5170 fori=1to79:print#4,"-";:next:print#4
  171. 5180 print#4," [212]otal [206]et [215]orth           ";:print#4,right$(sp$+str$(gt),10)
  172. 5190 fori=1to79:print#4,"-";:next:print#4
  173. 5200 sys49227:return
  174. 5210 :
  175. 6000 print"[147][150]                 [212]otals"
  176. 6005 print"[155]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
  177. 6010 printtab(7)"[221] [193]ssets      [221]         [221]"
  178. 6015 printtab(7)"[221] [204]iabilities [221]         [221]
  179. 6020 [153][163]7)"-tantantantantantantantantantantantantan(NULL)tantantantantantantantantan<"
  180. 6025 [153][163]7)"(NULL)cont (NULL)et (NULL)orth   list(NULL)cont         list(NULL)"
  181. 6030 [153][163]7)"/tantantantantantantantantantantantantan>tantantantantantantantantanexp"
  182. 6035 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  183. 6040 [141]8000:gt[178]ta[171]tl
  184. 6045 [153]""
  185. 6050 [153][163]22)"list"[201](sp$[170][196](ta),9)
  186. 6055 [153][163]22)"list"[201](sp$[170][196](tl),9)
  187. 6060 [153]:[153][163]22)"cont"[201](sp$[170][196](gt),9)
  188. 6065 [141]9400:[142]
  189. 6070 :
  190. 7000 [153]"load":[158]828
  191. 7005 [153]:[153]:[141]9400
  192. 7010 [142]
  193. 7020 :
  194. 7500 v$[178]"pfs.cat"
  195. 7505 [159]2,8,2,v$[170]",s,r"
  196. 7510 [129]i[178]1[164]nl:[132]2,l$(i):[130]
  197. 7515 [129]i[178]1[164]na:[132]2,a$(i):[130]
  198. 7520 [160]2:[142]
  199. 7525 :
  200. 7600 v$[178]"pfs.cat"
  201. 7602 [151]214,21:[153]:[153][163]2)"(NULL)riting new category file."
  202. 7605 [159]15,8,15,"s0:pfs.cat":[160]15
  203. 7610 [159]2,8,2,v$[170]",s,w"
  204. 7615 [129]i[178]1[164]nl:[152]2,l$(i):[130]
  205. 7620 [129]i[178]1[164]na:[152]2,a$(i):[130]
  206. 7625 [160]2:[142]
  207. 7630 :
  208. 7700 [151]214,21:[153]:[153][163]2)"                                      ";
  209. 7705 [151]214,21:[153]:[153][163]2)"(NULL)ew lenat: ";
  210. 7710 ff[178]1:ty[178]1:l[178]26:[141]9200:ff[178]0
  211. 7712 [151]214,21:[153]:[153][163]2)"atnre you sure [y/n]                   "
  212. 7714 [161]k$:[139]k$[178]""[167]7714
  213. 7715 [151]214,21:[153]:[153][163]2)"                ";
  214. 7716 [139]k$[179][177]"y"[167][142]
  215. 7718 a$(x)[178]"close"[170]v$:[141]7600
  216. 7720 [142]
  217. 7725 :
  218. 7800 [151]214,21:[153]:[153][163]2)"                                      ";
  219. 7805 [151]214,21:[153]:[153][163]2)"(NULL)ew lenat: ";
  220. 7810 ff[178]1:ty[178]1:l[178]26:[141]9200:ff[178]0
  221. 7812 [151]214,21:[153]:[153][163]2)"atnre you sure [y/n]                   "
  222. 7814 [161]k$:[139]k$[178]""[167]7814
  223. 7816 [139]k$[179][177]"y"[167][142]
  224. 7818 l$(x)[178]"close"[170]v$:[141]7600
  225. 7820 [142]
  226. 7825 :
  227. 8000 ta[178]0:[129]i[178]1[164]na:ta[178]ta[170]([197](as$(i))):[130]
  228. 8005 tl[178]0:[129]i[178]1[164]nl:tl[178]tl[170]([197](li$(i))):[130]
  229. 8010 [142]
  230. 8015 :
  231. 8100 [151]214,21:[153]:[153][163]2)"                                      ";
  232. 8102 [151]214,21:[153]:[153][163]3)"valnter: ";
  233. 8105 ty[178]2:l[178]9:[141]9200
  234. 8110 [151]214,21:[153]:[153][163]3)"                ";
  235. 8115 [142]
  236. 8120 :
  237. 8200 [151]54296,21
  238. 8205 [151]54277,9
  239. 8210 [151]54278,0
  240. 8215 [151]54273,48
  241. 8220 [151]54276,32
  242. 8225 [151]54276,33
  243. 8230 [142]
  244. 8235 :
  245. 8500 [153][163]4)"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  246. 8515 [153][163]4)"(NULL) + (NULL)o add value to cell       (NULL)"
  247. 8520 [153][163]4)"(NULL) - (NULL)o subtract value          (NULL)"
  248. 8525 [153][163]4)"(NULL) = (NULL)o set cell equal to value (NULL)"
  249. 8526 [153][163]4)"(NULL)                              (NULL)"
  250. 8527 [153][163]4)"(NULL) len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) len to change category (NULL)"
  251. 8530 [153][163]4)"(NULL)                              (NULL)"
  252. 8535 [153][163]4)"(NULL)         (NULL)ress (NULL)eturn         (NULL)"
  253. 8540 [153][163]4)"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  254. 8545 [161]k$:[139]k$[179][177][199](13)[167]8545
  255. 8550 [158]49227:[142]
  256. 8555 :
  257. 9000 [151]214,r[171]2:[153]:[153][163]c)"list"v$
  258. 9005 [142]
  259. 9010 :
  260. 9050 [151]214,r[171]2:[153]:[153][163]c)"cont"v$
  261. 9055 [142]
  262. 9060 :
  263. 9200 v$[178]"":k$[178]"":ct[178]0:[153]"tocmd";
  264. 9205 [161]k$:[139]k$[178]""[167]9205
  265. 9210 [139]k$[178][199](13)[167]9270:[143] return
  266. 9215 [139]k$[178][199](20)[175]ct[179][177]0[167][153]" cmdcmdtocmd";:ct[178]ct[171]1:v$[178][200](v$,ct):[137]9205
  267. 9220 [139]k$[178]" "[167]9255:[143] space
  268. 9221 [143]ifk$="."then9255
  269. 9225 [139]ty[178]1[176] ty[177]2[167][139](k$[177]"@")[175](k$[179]"[")[167]9255:[143] alpha
  270. 9230 [139]ty[177]1[167][139](k$[177]"/")[175](k$[179]":")[167]9255:[143] numeric
  271. 9235 [139]ty[178]1[176]ty[177]2[175]ca[178]2[167][139](k$[177]"tan")[175](k$[179]"(NULL)")[167]9255:[143] upper case
  272. 9240 [139]ty[178]4[167][139](k$[177][199](34))[175](k$[179]"0")[167]9255:[143] #$%&'()*+,-./ punct
  273. 9245 [139]ty[178]4[167][139](k$[177]"9")[175](k$[179]"@")[167]9255:[143] :;<=>? punctuation
  274. 9250 [137]9205
  275. 9255 [139]ct[177][178]l[167]9205
  276. 9260 ct[178]ct[170]1:v$[178]v$[170]k$:[153]k$;:[151]212,0:[153]"tocmd";
  277. 9265 [137]9205
  278. 9270 [139]ct[178]0[167]v$[178][199](0)
  279. 9275 [139]ff[167][129]i[178][195](v$)[170]1[164]l:v$[178]v$[170]" ":[130]:[143] pad string
  280. 9280 [142]
  281. 9285 :
  282. 9400 [151]214,21:[153]:[153][163]14)"print(NULL)ress (NULL)eturn":[151]198,0
  283. 9405 [161]k$:[139]k$[179][177][199](13)[167]9405
  284. 9410 [142]
  285. 9415 :
  286. 9500 [153]"loadortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  287. 9505 [153]"{$7d}     printPersonal Financial Statement     {$7d}";
  288. 9510 [153]"{$7d}                                      {$7d}";
  289. 9515 [153]"{$7d} cont                                     {$7d}";
  290. 9520 [153]"{$7d} contThis program will allow you to       {$7d}";
  291. 9525 [153]"{$7d} contprepare a report of your net worth.  {$7d}";
  292. 9530 [153]"{$7d} contThis information is frequently       {$7d}";
  293. 9535 [153]"{$7d} contrequested by banks when applying for {$7d}";
  294. 9540 [153]"{$7d} conta loan or mortgage.  It is also      {$7d}";
  295. 9545 [153]"{$7d} contuseful for future financial planning.{$7d}";
  296. 9550 [153]"{$7d} cont                                     {$7d}";
  297. 9555 [153]"{$7d} contThe program is designed as a         {$7d}";
  298. 9560 [153]"{$7d} contcombination database/spreadsheet.    {$7d}";
  299. 9565 [153]"{$7d} contFrom the main menu you may load,     {$7d}";
  300. 9570 [153]"{$7d} contsave or print your file.  You may    {$7d}";
  301. 9575 [153]"{$7d} contalso view the disk directory in case {$7d}";
  302. 9580 [153]"{$7d} contyou have forgotten your filename.    {$7d}";
  303. 9585 [153]"{$7d} contHowever, the heart of the program is {$7d}";
  304. 9590 [153]"{$7d} contthe data entry and calculation.      {$7d}";
  305. 9595 [153]"{$7d} cont                                     {$7d}";
  306. 9600 [153]"{$7d} cont                                     {$7d}";
  307. 9605 [153]"{$7d} cont                                     {$7d}";
  308. 9610 [153]"{$7d}                                      {$7d}";
  309. 9615 [153]"{$7d}             printPress Return             {$7d}";
  310. 9620 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  311. 9625 [161]k$:[139]k$[179][177][199](13)[167]9625
  312. 9630 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  313. 9635 [153]"{$7d}     printPersonal Financial Statement     {$7d}";
  314. 9640 [153]"{$7d}                                      {$7d}";
  315. 9645 [153]"{$7d} cont                                     {$7d}";
  316. 9650 [153]"{$7d} contThe first step is to select ASSETS   {$7d}";
  317. 9655 [153]"{$7d} contfrom the main menu.  You will then   {$7d}";
  318. 9660 [153]"{$7d} contbe presented with a list of assets   {$7d}";
  319. 9665 [153]"{$7d} contsuch as cash, real estate, or stock. {$7d}";
  320. 9670 [153]"{$7d} contUse the up/down cursor keys to move  {$7d}";
  321. 9675 [153]"{$7d} contthrough the list.  The categories    {$7d}";
  322. 9680 [153]"{$7d} contwill be highlighted one by one.      {$7d}";
  323. 9685 [153]"{$7d} contAfter you have selected one, press   {$7d}";
  324. 9690 [153]"{$7d} contthe plus (+) key to add a value to   {$7d}";
  325. 9695 [153]"{$7d} contthe corresponding cell, press the    {$7d}";
  326. 9700 [153]"{$7d} contminus key (-) to subtract a value or {$7d}";
  327. 9705 [153]"{$7d} contpress the equal key (=) to set the   {$7d}";
  328. 9710 [153]"{$7d} contcell to a particular value.  You     {$7d}";
  329. 9715 [153]"{$7d} contwill notice that the data is then    {$7d}";
  330. 9720 [153]"{$7d} contentered into the correct cell and    {$7d}";
  331. 9725 [153]"{$7d} contthe totals updated.                  {$7d}";
  332. 9730 [153]"{$7d} cont                                     {$7d}";
  333. 9735 [153]"{$7d} cont                                     {$7d}";
  334. 9740 [153]"{$7d}                                      {$7d}";
  335. 9745 [153]"{$7d}             printPress Return             {$7d}";
  336. 9750 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  337. 9755 [161]k$:[139]k$[179][177][199](13)[167]9755
  338. 9760 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  339. 9765 [153]"{$7d}     printPersonal Financial Statement     {$7d}";
  340. 9770 [153]"{$7d}                                      {$7d}";
  341. 9775 [153]"{$7d} contWhen you have finished, press the    {$7d}";
  342. 9780 [153]"{$7d} contback arrow (_) to return to the main {$7d}";
  343. 9785 [153]"{$7d} contmenu and then select LIABILITIES.    {$7d}";
  344. 9790 [153]"{$7d} contThese are your debts such as your    {$7d}";
  345. 9795 [153]"{$7d} contmortgage, outstanding taxes, etc.    {$7d}";
  346. 9800 [153]"{$7d} contThe format for entering data is the  {$7d}";
  347. 9805 [153]"{$7d} contsame as for assets.                  {$7d}";
  348. 9810 [153]"{$7d} cont                                     {$7d}";
  349. 9815 [153]"{$7d} contWhen you are finished entering data, {$7d}";
  350. 9820 [153]"{$7d} contreturn to the main menu where you    {$7d}";
  351. 9825 [153]"{$7d} contshould save your file.  You may also {$7d}";
  352. 9830 [153]"{$7d} contselect TOTALS which will give you a  {$7d}";
  353. 9835 [153]"{$7d} contcapsule summary (Assets, Liabilities {$7d}";
  354. 9840 [153]"(NULL) contand (NULL)et (NULL)orth) or (NULL)(NULL)right$(NULL)(NULL) out your     (NULL)";
  355. 9845 [153]"{$7d} contfile.                                {$7d}";
  356. 9850 [153]"{$7d} cont                                     {$7d}";
  357. 9855 [153]"(NULL) cont(NULL)ey commands are identified either   (NULL)";
  358. 9860 [153]"(NULL) conton screen or via a left$val(NULL)(NULL) menu         (NULL)";
  359. 9865 [153]"(NULL) contthroughout the program.              (NULL)";
  360. 9870 [153]"(NULL)                                      (NULL)";
  361. 9875 [153]"{$7d}             printPress Return             {$7d}";
  362. 9880 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  363. 9885 [161]k$:[139]k$[179][177][199](13)[167]9885
  364. 9895 :
  365. 9900 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  366. 9905 [153]"(NULL)     print(NULL)ersonal ascinancial (NULL)tatement     (NULL)";
  367. 9910 [153]"(NULL)                                      (NULL)";
  368. 9912 [153]"(NULL)    cont(NULL)ou may customize this program by (NULL)";
  369. 9915 [153]"(NULL) contchanging the categories for either   (NULL)";
  370. 9920 [153]"(NULL) contassets or liabilites.  (NULL)o do this    (NULL)";
  371. 9930 [153]"(NULL) conthighlight the category you wish to   (NULL)";
  372. 9935 [153]"(NULL) contchange and then press len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) len.     (NULL)";
  373. 9940 [153]"(NULL) cont(NULL)hen enter your new category name.   (NULL)";
  374. 9945 [153]"(NULL) cont(NULL)he new category as well as the old  (NULL)";
  375. 9950 [153]"(NULL) contones will be automatically saved to  (NULL)";
  376. 9955 [153]"(NULL) contdisk.                                (NULL)";
  377. 9956 [153]"(NULL) cont                                     (NULL)";
  378. 9960 [153]"(NULL) cont  (NULL)ou may always change it back to   (NULL)";
  379. 9970 [153]"(NULL) contthe original.  right$f you have           (NULL)";
  380. 9972 [153]"(NULL) contforgotten the category, on disk      (NULL)";
  381. 9975 [153]"(NULL) contyou will find a backup copy of the   (NULL)";
  382. 9980 [153]"(NULL) contoriginal category file.  (NULL)he         (NULL)";
  383. 9985 [153]"(NULL) contfilename is (NULL)asc(NULL).lenatn(NULL).len(NULL)(NULL)(NULL).  right$f you    (NULL)";
  384. 9989 [153]"(NULL) contwish to have the original            (NULL)";
  385. 9990 [153]"(NULL) contcategories back, you must rename     (NULL)";
  386. 9991 [153]"(NULL) contthis file (NULL)asc(NULL).lenatn(NULL).                   (NULL)";
  387. 9994 [153]"(NULL)                                      (NULL)";
  388. 9995 [153]"(NULL)             print(NULL)ress (NULL)eturn             (NULL)";
  389. 9996 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  390. 9997 [161]k$:[139]k$[179][177][199](13)[167]9997
  391. 9998 [142]
  392. 9999 :
  393. 10000 [159]15,8,15,"s0:pfs":[160]15:[148]"0:pfs",8:[128]
  394. 11000 :
  395. 20000 [158]49152
  396. 20002 [153]"list"[163]7)"ortantantantantantantantantantantantantantantantantantantantantantantantan^"
  397. 20004 [153][163]7)"(NULL)cont   atnre you sure [y/n]   list(NULL)"
  398. 20006 [153][163]7)"/tantantantantantantantantantantantantantantantantantantantantantantantanexp"
  399. 20010 [161]a$:[139]a$[178]""[167]20010
  400. 20020 [139]a$[178]"(NULL)"[176]a$[178]"y"[167]20050
  401. 20030 [158]49227:[142]
  402. 20040 [147]"hello connect",8,1
  403. 20050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er,er$:[160]15
  404. 20060 [139]er[179][177]63 [167] [153]"load":[128]
  405. 20070 [147]"hello connect",8,1
  406.